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Plot Routine 

JS Barney Bryn Mawr, PA 

Here's a simple plot routine to achieve maximum resolution from 
our graphics. It will be evident from an examination of your key- 
oard that two choices are available: maximum X resolution or 
maximum Y resolution. 

Here's Y: 

10 D*=''ddddddddddddddddddddddd":REH 23 CURSOR DOUN 
20 X*="rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr"«REH 3? CURSO 
R RIGHT 

30 Y**”uuuuuuuuuuuuuuuuuuuuuuu":REH 23 CURSOR UP 
40 V**- "iREH B HORIZONTAL BARS 

45 REH BARS ARE ON CHARACTERS (RFeCDEI ENTERED SEQUENTIALLY 
50 PRINT 

100 FOR X=1TO 28 
110 Y*(14-X)‘2 
130 G0SUB 700 
135 NEXT X 

150 GET ZZ»:IF ZZt=—G0T0150 
160 END 

700 XX*X!YZ*Y/8:VZ*(Y-8*YZ>+1 
800 IF XZ=0 GOTO 1000 
900 PRINTLEFT*(X*,XZ); 

1000 IF YX=0 GOTO 1200 
1100 PRINTLEFT*(Y*,YX); 

1200 PRINTHID*(M»,VZ,1); 

1300 PRINT"h";D»; 

1400 RETURN 
READY. 

c=clear,h=home,r=cursor right,d*down,u«up 

Lines 10 through 50 establish strings in memory and initialize 
the screen. 

Lines 700 through 1400 plot the point (X,Y) and return to main 
program. 

Thus, the main program would contain lines 10 through 50 and 
subsequently a GOSUB 700 would be used to plot. 

Please note that translation and scaling of the variables X,Y 
must assure that 0 * X% i 40 and 0 s Y% £ 23. 

If you are unsure 6f the scaling and translation, then enter 
conditional statements to exit and/or flag to prevent scrolling the 
plot. 

1 REH ROY BUSDIECKER 

2 REH TO FIND THE REHAINDER <R> IH INTEGER DIVISION 

3 REH (8 IS THE QUOTIENT)i 

4 REH 

10 INPUT -DIVISOR’SH 
20 INPUT -DIVIDEND"^ 

25 IF N*0 GOTO 10 
30 0*INT(N/H) 

40 R*N-H*INT(N/H) 

50 PRINT-0U0TIENT";Q;*REHAINDER“;R 
60 60T0 10 


GENERAL 

Commodore raised the price of their printer from *595 to 
*695. Although the increase is significant, the price/per¬ 
formance is still very attractive (I ordered my printer 
before the increase, I hope). Deliveries are scheduled for 
October. 

At the Chicago Consumer Electronics Show, Commodore exhibited 
a dual drive increased density minifloppy system (260,000 
bytes?). The anticipated price is *1000, with delivery in 
early 1979. 

None of the Commodore announced software has been shipped 
yet. Neither has Commodore sent documentation or User Han- 
uals. Other than the 019 RON replacement to fix the cursor 
loss, none of the significant system and BASIC bugs have been 
corrected. Several people have also written they had trouble 
even acquiring the cursor fix RON. 

Commodore also announced a PET schematic-diagnostic package 
for sale at *30. Included will bes edge connectors (for run¬ 
ning diagnostics); diagnostic routine cassette; diagnostic 
package manual; and schematics of the circuit boards. 

Delivery is 4 weeks (no comments like "from when?” allowed). 

Commodore plans to have RON fixes for many of the BASIC and 
operating system bugs in about 10 weeks, along with 
Hachine Language Honitor in R0H. 

ANNOUNCEHENTS 

CORS Hicrotech, Box 368, Southampton, PA 18966, (215) 

757-0284 announced PETEX, a PET to S-100 single board adapter 
card which will plug into a slot on an S-100 system. The 
board generates all S-100 bus signals, and comes assembled 
and tested for *195. CGRS also announced disk software for 
6502 systems to support the Versafloppy disk controller. 
Supplied on a 2708 EPROH and diskette at price of (40. 

HL Sandy, Box 1535, Corinth, HS 38834 has coding- 
documentation pads of about 50 sheets for PET at *2 or 5 for 
*7.50 postpaid. Each page has all PET character 
representations as well as a 40*25 screen layout on the back. 

Creative Computing (Creative Computing Software, Box 769-H, 
Norristown, NJ 07960) is looking for PET software to market 
on a royalty basis -- generally 10-15* of a retail price of 
*7.95. Send software on cassette along with any necessary 
documentation and return postage. 
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Connecticut nicroConputor, 150 Pocono Road, Brookfield, CT 
04804 has a word processing progran for PET for *29.95. The 
software supports shift reversal, upper and lower case, tape 
storage, output to printer, and all the necessary word 
processing/editting connands. .(The CnC Uord Processor is 
being used for this section and seens to work quite well.) 

Nicrosignal, Box 141988, Sacranento, CA 95814 has announced 
C0MPUV0X, a low cost (*29.95) voice recognition unit for PET. 
Conpuvox apparently recognizes nunber and duration of sounds 
(not the actual word). Two prograns (Voicetrap and 
Voicenaze) are available for *3.95 each to denonstrate 
Conpuvox. Sounds like fun. 

Microtronics, 5943 Pioneer Road, Hughson, CA 95324, (209) 
434-8888 announced the H-45 Han Interface for PET. The 
package includes the hardware, and prograns MORSE and RTTY on 
cassette for *99.95. The systen was designed by Ron Lodewyck 
(N4EE) one of the co-authors of Connodore's Basic BASIC 
(forthconingT). 

On a related subject, Larry Uillians (N5CX), San Antonio , 
nentioned a group of han PET owners neet each Sunday norning 
at 15x00 UCT (lOiOOAH CDT) on 14240 KHz. 

Stefan Ran, Uedellstr. 23, 1000 Berlin 44, GERMANY has sons 
prograns on cassette to sell (»10 for entire cassette incl. 
air nail) or trade for equivalent tapes. His tape includesi a 
basic file systen with up to 10 record elenents; a descrip¬ 
tive progran; and several niscellaneous itens including a 
nusic progran and several nath plotting routines. 

1 received a series of five workbooks fron Total Infornation 
Services, Box 921, Los Alanos, NM 87544. They are entitled! 
Getting Started with Your PET; Pet String and Array Handling; 
PET Graphics; PET Cassette; and PET Niscellaneous. The books 
appeared to be nicely done. Uhile they start out at a 
beginning level, the author still assunes you have had sone 
exposure to BASIC (such as one of the nany available BASIC 
textbooks). 

Progran Design, Inc., 11 Idar Court, Greenwich, CT 04830 has 
several educational prograns for PET, including vocabulary 
builder and nunber practice. 

Russell Orockett, 401 Monunent Rd, 1177, Jacksonville, FL 
32211 is part of a group offering low cost PET software 
(*2.50 for first progran and tape, *1.50 each additional 
progran). Urite for list of prograns. 

Edward Lichten, 10301 Falling Tree Uay, Louisville, KY 40223 
has prograns for exchange <STATECAPS,HATH by grade level, 
Biorythn, letter recognition for preschoolers). 

Rick Goldsnith, 2730 Townway Rd. No. E54, Danville, 1L 41832 
is interested in the possibility of a user group in central 
Illinois. Contact hin if you are in that area. 

As we were ready to take this issue to the printer, I 
received a copy of PET FORTH (a version of their 4502 FORTH) 
fron Progranna Consultants, 3400 Uilshire Blvd, Los Angeles, 
CA 90010. Progranna stated they would have a Priner and full 
User Reference available in the near future. Hope to have 
nore on this in the next issue. 


MISCELLANEOUS 

Several people (Grant Paul, Charley Musselnan anong others) 
wrote that the randon nunber can be alnost randonly seeded 
after PET has been cold-started by using the negative value 
of the jiffy check: X=RND(-TI) 

Users in the California Bay area reported seeing a denon- 
stration of a very nice PET assenbler, link editor, and text 
editor all written in nachine language. The package will be 
available in the near future. 


A nunber of people also suggested clear nail polish as a 
neans-of protecting keytops. A slightly nore elegant sounding 
suggestion fron Fred Hellender was Grunbacher Hyplar Gloss 
Hediun fron art supply stores. Frank Covitz suggested Denni¬ 
son's Pres-A-Ply Clear Seal plastic sheet. 


1 have signed up for one of the user group neeting roons at 
PC 78. The registration was late, however, so I don't know if 
we'll get the roon. If not, I'll be at the ACG-NJ 4502 group 
neeting area. 

Have received good connents fron people about the following 
unitsi 

BETSI, Forethought Products, Box 8044, Coburg, OR 
EXPANDAPET, Convenience Living Systens, 448 Sheraton Dr., 
Sunnyvale, CA 94087 

PEM-8K, International Technical Systens, Box 244, Uoodbridge, 
VA 22194 

Saw sone of the CHS Casino series prograns (Blackjack, 

Baccarat, etc.), and thought they were very nicely done — 
good graphics and good descriptions of both the actual ganes 
and progran operation. 

Ue have about 4 pages of nenory nap and nenory locations. 

Since I did not feel everyone is interested in these, I 
didn't include then in this issue. If you want a copy, please 
send stanped self addressed envelope and 2 extra stanps 
(unattached) for copy costs. 

Received *24 Second Cubic* progran fron Nike Louder. Although 
it plays nuch faster than the Kilobaud original, the prinary 
intent was to denonstrate progran run tine enhancenent by 
dynanically nodifying BASIC code. Hike will hopefully have an 
article on this by next issue. 


I recently purchased a printer with RS-232 interface since 
Connodore is not yet shipping theirs (printer). To get up and 
running quickly, I obtained an IEEE to RS-232 adapter fron 
Connecticut nicroConputer. The interface worked without a 
hitch, and nost of the listings you see in this issue were 
done on the printer and adapter. 

Arthur Hudson, Ottawa, Ontario suggested we run a contest to 
find the progran which does the nost in 4 lines. His entry! 

10 PRINT"clr screen*!F0RI”1T0999 
20 PRIMTCHR*(IMT(2*RND(2))*205);iNEXT 
30 P0KE33307,83 
40 F0RJ«1T012000iNEXTJ!G0TO1O 

The progran draws a naze and allows about 14 seconds to get 
out. 

Mr. Hudson also suggested a printer as the prize, and further 
inferred that I should send hin the printer right away since 
no one would best his entry. Uhile I think the contest is OK, 
1 would like to revise the prize structure : an autographed 
listing of Nr.Hudson's progran to anyone surpassing the above 
entry. For Arthur Hudson a certificate of nerit printed on 
the back of used Mod 33 teletype paper. A clever progran 
anyway — thanks Arthur. 

Thanks also to Nell Bussey of SPHINX for sending the prograns 
Resequence (by Joe Trinble) and Unlist (by Larry Tessler) 
which are listed in this issue, and for HINONDIS 
(nonitor-dissasenbler). 


Errors in U 1,Issue 4 

Andrew Fraley, 1753 York Road, Reading, PA 19410 is 
selling Bonber, Indy, Seawolf, and Dogfight for *5.95 (for 
all four, not each). 

Page 2 — “Sensing Keys*. Shift depression checked in 
location 514. 

Page 3 Cosine abbreviation should be COs (who would do it, 
though). 

Page 4 i 7 — “LIFE" 19DF should contain 40, and 1A48 should 
have DO CF. 
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Programs on Tape 

SEQUENCE — you have to sort a character list 
STATECAPS — quiz on states and capitals from Kilobaud 3/78 
RACETRACK — see listing in V.l, Issue 3 - RE McGee 
DEFLECTION — F Dunlap 

ADDITION — math drill — F Dunlap, C Pitcairn 

OTHELLO — from Byte 9/77 

OTHELLO for 2 — Fdunlap 

BAGELS — like Mastermind - J Butterfield 

Cash flow/ Return on Investment - R Goldsmith 

STAR TREK 

BLACKJACK — D Liem - nice graphics, humorous patter by dealer 

LIFE - 40*25 F Covitz 

LIFE — 64*64 F Covitz 

TRAP — trap the PET, avoid being trapped 

SUPER MASTERMIND - JR Marcou 

LUNAR LANDER — JR Marcou 

NIM — J butterfield 

QUBIC - 3D Tic-Tac-Toe 

LIST MEMORY — Charles Combs 

Machine Language Monitor — a good version - similar to the one 
Commodore will be sending 
TIME — large clock display 

BIORYTHM — Kenneth Finn - very concise code - plots with only 
30 BASIC statements 

KING — business-social simulation or game 

BREAKOUT — simple version of the arcade game 

SWATPLOT — F Campbell (see V.l Issue 3) - plots in 80x50 format 

Word Processor — MRichter, R Julin - no printer interface yet 

MAXIT — Harry Saal - clever game and nicely programmed 

WUMPUS 

MARKET — corporate simulation 

CONCENTRATION — Francis Chambers - displays 52 cards 

ESP TEST — Francis Chambers 

DO-ALL — JK Johnson from Kilobaud 

SHARK BAIT — JK Johnson - hangman stye program 

FLEA RACE — JK Johnson 

AWARI — Hans-J Koch - German instructions 

CHASE with Sound 

STAR LANES — Gerald Hasty - Interface Age 
KALEIDOSCOPE — Jerry Ranofsky - People's Computers 
HEXDEC — Wayne Reindollar — converts and pokes values into 
memory for machine language programs 
24 Second QUBIC — Mike Louder 
DOODLER — Jim Brannan - draw type program 
GNIP GNOP — Jim Brannan - 2 player ping pong 
PONG — People's Computers 
CURFIT — J Butterfield - fits data to 6 curves 
TRIANGLE — J Butterfield - solves any triangle 
METRIC — J Butterfield - does metric conventions 
DATES — J Butterfield - day of week, days between 
TRENDLINE — J Butterfield - fits, forecasts, graphs 
MILEAGE — J Butterfield - distances from Latitude/Longitude 
FACTORS — J Butterfield - prime factors of any number 
MORTGAGE — J Butterfield - schedule of payments 
FINANCE — J Butterfield - present, future value etc. 
BATTLESHIPS — J Butterfield - you vs. computer 
MOONLANDER — J Butterfield - graphics 
BREAKOUT — J Butterfield - paddle ball 
CRYPTO — J Butterfield - cryptogram solving aid 
JOTTO — J Butterfield - guess a word 
POEMS — J Butterfield - write poetry 
MYSTERY — J Butterfield - you can't list it! 

ADDER — Earl Wuchter - functions as an adding machine (nicely 
done) 

HIMONDISS — monitor and disassembler from SPHINX 
RESEQUENCER — Joe Trimble - renumbers BASIC programs by 10 
UNLIST — Larry Tesler - in this issue 

ELIZA — adapted for PET by Dennis Cumberton - the computer 
psychologist 

HAMMURABI — social simulation 
SLOT MACHINE — Michael Richter 
CRAPS —Michael Richter 
BREAKOUT with Sound 

RESEQUENCER — Jim Trimble - line renumber routine 
POP SHOT — from Sphinx Group - shooting gallery with sound 
STARS — John Broomhall - children's number quessing game 
LINEQN—Frank Alexander - solves linear equations using matrix 
invert subroutine. 

POUNCE—John Broomhall - kids game—if you don't pounce the 
right number of spaces, the mouse might run into his hole. 


STAR WARS—John Broomhall 

AUTO-DOODLE—Frank Levinson - draws very nice rectangular 
patterns. 

FOURIER—Frank Levinson - very nice high density graphing- 
visual demo of Fourier approximation curve fit. 

$2 for the first program including cassette and postage, $1 for^each 
additional — max 4 per tape. This "programs on tape service" is 
priced to hopefully cover the cost of a part time person to copy and 
mail the tapes. If you have a program to add to the list, please send 
it on tape. We will copy it and return your tape (with program of 
your choice). 


PET Operator Hierarchy 

Raynor Taylor Charleston, South Carolina 

I have been a witness to a phenomenon of the PET that is as yet 
unmentioned. I am very excited about this phenomenon particularly 
because it is usually found only on the large computers. Sometimes 
when I try to execute a machine language subroutine, the PET gives 
me an "ILLEGAL QUANTITY ERROR". After I recheck the argu¬ 
ment in SYS(X) or USR(X) and find it to be within the prescribed 
ranges, the PET still refuses to execute the subroutine. At this 
point I figure that something must be wrong with the subroutine, so 
I go back and check It. What do you know, I always find an error. 

What this means is that the PET, before giving itself up in a 
possibly detrimental subroutine, looks over and checks for errors. 
Some, type of dynamic debugger must be implemented in the PET - 
imagine, a program that checks programs I. 

Sometimes, however, the dynamic debugger will fail to find 
logical errors such as endless loops, etc. This is because the pro¬ 
gram looks good, that is, has no illegal opcodes, no bad branches 
etc. 


T I S _ 

WORKBOOKS FOR THE COMMODORE PET 2001 
Getting Started with Your PET WB-1 $4.00 

Covers the fundamentals of PET BASIC: calculator 
and program mode, data input and output, data 
representation, program storage on the cassette. 

PET String and Array Handling WB-2 $3.95 

Covers string and substring search, concatenation, 
replacement and manipulation. 

PET Graphics WB-3 $4.95 

Covers use of cursor control and special graphics 
symbols to draw plots, histograms, and sketches. 

PET Cassette I/O WB-4 $4 95 

Covers OPEN, CLOSE, string and numeric data files. 
Miscellaneous PET Features WB-5 $3.95 

Covers the clock, random number generator, upper 

and lowercase alphabetic characters, saving memory 
space, etc. 


Don't be "lion" around! 
Order NOW! Send check or 
money order today to: 

TIS 

P.O. Box 921 

Los Alamos, N.M. 87544 

Money back guarantee. 
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BETSI PET to S-100 Interface Motherboard il39 

Four slot motherboard - On board sockets 
and decoding circuitry hardware with 
four 100 pin edge connectors. Assembled. 

BETSI Kit 5105 

Power Supply for BETSI $34 

8 volt/6 amp. Assembled in case 

S-100 8K Static RAM (Problem Solver Systems) S149 

Assembled, tested, and burned-in at factory 
120 day warranty PERFECT FOR BETSI. 

Protect-A-PET $9.95 

Custom fitted clear vinyl dust cover with 
quality stitched seams for those rare 


occasions when you're away from your PET 
*************************************************** 

PET PROGRAMS ON CASSETTE 

ABTAPE1 includes Life, Biorythm. Othello, $8 

Mastermind II, Multiprimer (math tutorial- 
deduction game), and Klingon Capture 

KITES — A new, unique two player game by $7.95 
Michael Riley. A simulated kite fight with 
background on fighter kites included with 
documentation. The best game for the PET — 
you won't be able to stop playing. 


6500 Programming and Hardware Manuals $6.50 each 
The 6500 Programming Manual is 
indispensable if you are interested in 
Machine Language programming 


•PF5EQUENCER' BY JOE TRIMBLE 
_OAKLAND, CA. 5/29/78 

THIS PROGRAM UILL RESEQUENCE LINE NUMBERS (INCLUDING ALL GO 
TO'S, GOSUB'S AND THEN'S) BY 10, STARTING UITH 10, FOR ANY 
SUBSEQUENTLY LOADED PROGRAM. 

THIS PROGRAM HAS SEVERAL RESTRICTIONS: 

1. LINE NUMBER 0 UILL BE RESEQUENCED TO LINE 10, BUT 
REFERENCES TO LINE 0 UILL NOT BE CONVERTED. 

2. LINE NUMBERS GREATER THAN 43987 UILL NOT BE RESEQUENCED 

3. ONLY 255 LINES CAN BE CORRECTLY RESEQUENCED, DUE TO 
THE CURRENT MATRIX LIMIT. 

4. ALL NUMBERS FOLLOUING ANY 'GOTO', 'GOSUB', OR 'THEN' 

ON THE SAME TEXT LINE UILL BE CONVERTED, IF POSSIBLE! 

(EVEN AFTER A ':' OR INSIDE PARENTHESES.) 

5. IF THE NEU (RESEQUENCED) NUMBER HAS MORE DIGITS THAN 
THE OLD NUMBER, THE CHARACTER PRECEDING THE OLD NUMBER IN 
TEXT LINES IS REPLACED BY THE FIRST DIGIT OF THE NEU NUMBER 
FOR EXAMPLE, 'GOTO 25' BECOMES 'GOT0150' (IF 150 IS 

THE NEU EQUIVALENT OF OLD LINE 25). 

HOUEVER, IF NO SPACE PRECEDES THE OLD LINE NUMBER, 

THE 'GOTO', 'GOSUB', 'THEN' OR COMMA (IN THE CASE OF 
'ON...THEN *11,1111,1111') UILL BE REPLACED BY THE FIRST 
DIGIT OF THE NEU NUMBER. 

FOR EXAMPLE, 'G0T025' BECOMES JUST '150' (IF 150 
IS THE NEU EQUIVALENT OF OLD LINE 25). 'ON...THEN 

25,24,27' BECOMES '0H...THEN150140170' 

TO RUN THIS PROGRAM: 

1. LIST LIMES 43988-43999 

2. REPLACE 'READY' AFTER LISTING UITH 'LOAD'-DON'T 'RETURN' 

3. PRESS 'PLAY', THEN PRESS 'RETURN'. 

A. AFTER 'READY' APPEARS, GO 'HOME', FOLLOUED BY 11 'RETURN'S 
TO ENTER LINES 43988-43999 INTO YOUR PROGRAM. 

5. TYPE 'GOTO 43988', THEN 'RETURN'. 

4. AFTER 'READY' APPEARS SAVE THE RESEQUENCED PROGRAM. 

(YOU MAY DELETE LAST 11 LINES FIRST UNLESS NEEDED AGAIN) 


Hewlett-Packard IEEE-488 condensed description $1.50 


of Interface Bus 

5timulating 5imulations — an interesting book $5 

containing 10 gamelike simulations written in 
BASIC. Excellent documentation and user 
instructions ( modifications included). 

Basic BASIC - James S Coan $8.95 

Game Playing with BASIC - Donald D Spencer $6.95 

Advanced BASIC - James S Coan $7.95 

How to Profit From Your Personal Computer $7.95 

TG Lewis 

Programming a Microcomputer:6502 $8.95 

Teaches microcomputer programming in 
machine language. Emphasizes KIM-1. 

Cassette Tapes 

C-10 (5 min/side) — high quality Agfa tape 10/$6 


C-30 (15 min/side) 10/$8.25 

Unbreakable Ampex plastic cassette boxes 10/$2.50 

PET Edge Connector Plugs with Keys 

Second Cassette '1.75 

User or IEEE-488 Port 52.50 


KIM-1 


$179 


Write for list of KIM-1 and PET memory and accessories 


A B Computers 


PO Box 104 
Perkasie PA 18944 
(215) 257-8195 


43988 DIML(254):L*1025:DEFFNR(X)=PEEK(X)+254*PEEK(X+1):DEFFNM 
(X)=INT(10*X/254) 

43989 N=FNR(L):X=FNR(L*2)tIF X<43988 THEN A=A+1:L(A)=X:L=N:G0 
TO 43989 

43990 L=1025:F0R B=1 TO A:N*FNR(L):P0KE(L*3),FNM(B)iPOKE(L+2) 
,I0*B-254*FNM(B) 

43991 F“0:FOR C=L*4T0N-1:P-PEEK(C>sIF P-1370R P=I410R P=147TH 
EN F-1 jSOTO 43999 

43993 IF FOO THEN IF P>47 AND P<59 THEN D*10»D*P-48:G*G+1 :G0 
TO 43999 

43994 IF F*0 OR 0=0 GOTO 43999 

43995 FOR E«1 TO A:IF D=L(E)G0T0 43997 
43994 NEXT E:D=0:G*0:G0T0 43999 

43997 D=0:E»=STR4(E*10)+" “:H=LEN(E*>-4:C=C-G:IF H>G THEN C 

=C-1*G-H 

43998 FOR 1*1 TO G:P0KE C,ASC(MID»(E»,1 + 1,1))iC-C+1tMEXT IiG=0 

43999 NEXT C:L*N:PRINT B;:NEXT B:END 

REPEAT Key 

Hans-J. Koch West Germany 

The sensing of keys with location 515 is very good (issue 4), 
when you have a progran for text editing. One thing that the 
PET lacks is a REPEAT, or autonatic, key. Uith the following 
short progran, you can have a repeat function: 

10 GET A*: IF A*=”“ GOTO 10 
20 P—PEEK(515 > s D*60 
30 PRINT A*; 

40 T=TI+D 

50 IF PEEK(515>*255 GOTO 10 
40 IF TI<T GOTO 50 
70 D=4: GOTO 30 

The progran echoes the input. If you release the key, the 
progran waits for the next input. If you press the key nore 
than one second (D=60), you will get the character ten tines 
a second (D*4). If you press a second key, then release the 
first key, the progran uill not work properly, but that can 
be corrected witTTa fee nodifictTons. 
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KIM-1 Talks to PET 

Frank Covitz 

Since both the KIM-1 and the PET are 6502 based systems, it 
ought to be possible to convert many KIM programs to run on the 
PET. Here are a couple of programs to enable the KIM-1 to trans¬ 
fer data to the PET over the user ports, with KIM providing a "hand¬ 
shake" signal to PET. 

Both programs are relocatable, except for the JMP address at the 
end of each, which sets up things for a repeat. Stopping at the BRK 
is OK. (The KIM appears to jump over 2 bytes after a BRK, but the 
PET seems to jump over only one byte). Don't forget to set the BRK 
address on the KIM, at address 17FE and 17FF, to 00,1 C . 

I have a copy of a PET machine language monitor, which makes 
it fairly easy to program the PET. By the time this article is printed, 
the PET monitor should be available (according to Commodore). 
Without the monitor the PET data has to be POKE'd in decimal. 

Both programs should be fairly clear to KIM programmers. The 
KIM fetches data bytes from CURL,H and puts them out to the port 
A lines. A handshake signal (high to low to high) is then sent over 
KIM port B-0 to the PET CA1 line. This signals that a new byte is 
available. The JSR SCAND at 17AE was put in to let the KIM LED 
display show the data flow, and limits the transfer speed to about 
1 page (256 bytes) per second, fast enough for me. By eliminating 
the JSR SCAND (with NOP's), and setting the delay time byte at 
17AA to 01, I have been able to get reliable data transfer speeds of 
about 30,000 bytes per second! I (The SEI and CLI instructions in 
the PET programs are required to get that speed). 

The PET program is fairly straightforward. On turn-on the CA1 
port is set to recognize a high-low-high transition (this clears bit 1 
of the IFR control register at E84Dh e v, which resets itself when the 
user port is read — called SYNC in the PET application notes and 
is at address E841). Note - the zero page addresses 00 through 05 
are used in the PET program and may not be "safe" on return to 
BASIC. Therefore, without the monitor, it may be necessary to 
restore them before the BRK. On my machine these six bytes ore 
76,48,209,0,0,0 (decimal) or 4C,30, D1,00,00,00 (hex). 

As mentioned above, connect the KIM port AO-7 lines to the 
corresponding PET user port lines (PAO-7 , pins C-l on the user 
port connector), and the KIM port B0 line to the PET CA1 line (pin 
B on the user port). Set the start address (low,high), and the end 
address + 1 (low,high) of the KIM data to be dumped into address 


"PET SCHEMATICS 1| 

Another First From "PET-SHACK". 
For only $34.95 you get: 

24" x 30" schematic ot the CPU board, plus oversired 
schematics ot the Video Monitor and Tape Recorder, 
plus complete Parts layout—all accurately and 
painstakingly drawn to the minutest detail. 

PET ROM ROUTINES 

Another Breakthrough From 
"PET-SHACK”. 

For only $19.95 you get: 

Complete Assembly listings ol all 7 ROMs, plus Iden 
titled subroutine entry points; Video Monitor, 
Keyboard routine. Tape Record and Playback routine. 
Real Time Clock, etc. 

To entice you we are also Including our own Machine 
Language Monitor program for your PET using the key¬ 
board and video display. 

You can nave Ihe Monitor program on cassette tor only 

$9.95 extra. NOW M . C . £• V I SA 

Send check or money order 

TO; P€T-SHACK Software House P37 
Marketing and Research Co. 

P. O. Box 966 

Mishawaka. IN 46544 _ 


0000-0003, respectively. Do the same for the PET addresses 0000- 
0003 (to where the data will be dumped). The PET addresses do not 
have to correspond (except in that the number of bytes to be dumped 
should be equal or less than the KIM data to be transferred. 

Start the KIM program first (at address 1780hex) then start the 
PET program at 0800h ex ( or 2048d ec ). Nothing happens until the 
"+" key on the KIM is pressed. If you have left in the JSR SCAND 
instruction on ihe KIM, you will see the addresses and data being 
transferred on the KIM LED display. 

One further note on transcribing KIM programs to run on the PET. 
Be careful to convert all port addresses and data direction registers, 
all references to absolute addresses. References to KIM ROM rou¬ 
tines will, of course, need to be re-written. 


XI.-l Procraa {part of KIB Talks to PET) 


Op.cod 

e Byte 1,2 

Addr. 

Op. B1 B2 

Comments 

LDA in 

PP 

1780 

A? 

?P 

Set up Port AO-7 as 

STA 

PADD 

1782 

8D 

01 17 

outputs 

LDAiw 

01 

1785 

A9 

01 

Set up Port B0 as 

STA 

PBDD 

1787 

8D 

03 17 

ouput and set the 

STA 

PBD 

178A 

8D 

02 17 

bit to 1 

JSR 

CETKEY 

178D 

20 

6A IF 

Wait for the key 

CMPlB 


1790 

c? 

12 


BNE 

BACK 

1792 

DO 

F9 


LDA* 

START! 

1794 

A5 

00 

Set up start address 

STA* 

POINTI. 

1796 

85 

PA 


I-DAs 

STARTH 

1798 

A5 

01 


STA* 

POINTH 

179A 

85 

PB 


LDYiw 

00 

179C 

A0 

00 

Straight indirect 

LDAiy 

POINT! 

179E 

B1 

PA 

fetch byte 

STA 

PAD 

17A0 

8D 

00 17 

Put it on Port A 

DEC 

PBD 

17A3 

c?. 

02 17 

Put out a low-to-high 

TNC 

PBD 

17A6 

EE 

02 17 

transition on Port BO 

LDAm 

Delay 

17A9 

A? 

10 

Slow down 

STA 

TIMER 

17AB 

3D 

04 17 


JSR 

SCAND 

17AE 

20 

19 IF 

Show it on display 

PIT 

TIMER" 

17B1 

2 C 

07 17 

Tims up? 

SPt 

DISP! 

17B4 

10 

P8 


INC* 

POJNTL 

17B6 

E6 

PA 

Now get address of next 

b»:b 

corp 

17B8 

DO 

02 

byte 

INC* 

POINTH 

17BA 

E6 

PB 


I.DAs 

POINT! 

17BC 

A5 

PA 

Check for end 

WP« 

END! 

17BE 

C5 

02 


dse 

AGAIN 

17CO 

DO 

DA 


I.DAs 

POINTH 

17C2 

A* 

PB 


CVP* 

KNDH 

17C4 

C5 

03 


BXE 

AGAIN 

17C6 

DO 

D4 


BRK 

BRK 

17C8 

00 

00 

Done 

JMP 

START 

17CA 

4C 

80 17 

Back to beginning 


KB 0M1C ADD.4K! 
STARTL 0000 


STARTII 

0001 

KtD! 

0002 

KKDH 

0002 

roim 

DO PA 

POINTH 

00 PB 

PAD 

1700 

PADD 


PBD 


PBDD 


TJ'-JEH 


TIVER" 

1707 i 

START 


BACK 


AGAIN 

179C 

D1SPL 

17AE 

C0KP 

17BC 

SCAND 

1P19 

CETKEY 

1P6A 

P-E.T. 



This prngra"* )■ relocatable, except 
Tor the JMP "-TART at 17CA 

For high upcod replace JSR SCAND (20 1°1V) 
at 17AE with NOP NOP NOP (EA EA EA). 


(part of KM talka to PET) 


PST Address Op. cods 


Addr. 

°I- ILJi 

Consenta 

BtWIN 

SEI 


0800 

78 

4D E8 

Dinablc interrupts 

IDA 

IFR 

0801 

AD 

Set up IFR to recognise 
a high-to-low transition 


CRAie 

02 

0304 

09 

02 


STA 

IFR 

0306 

8D 

4D E8 



IDA* 

STARTL 

0809 

A5 

00 

Set up ntart address 


STA* 

GIRL 

080B 

85 

04 



IDA* 

STARTH 

030D 

A5 

01 



STA* 

CURH 

080P 

85 

05 



LDYlm 

00 

0811 

AO 

00 

Straight indirect 

AGAIN 

I-DAln 

02 

0913 

A9 

02 

Check CA1 for atrobo 

BACK 

BIT 

IPR 

0815 

PC 

4D EF 


DSQ 

BACK 

0813 

PO 

rp 



LDA 

SYNC 

081A 

AD 

41 E3 

Fetch data from user port 


STAl" 

CURL 

031D 

91 

04 

Store it 


INC* 

CURL 

oaip 

EG 

05 

Now get next address 


BVE 

cot:? 

0821 

DO 

02 



i?:c* 

CURH 

0323 

E6 

05 


CO P 

LDA* 

CURL 

0325 

A5 

04 

Check for end 


C -P* 

ENDL 

0327 

C5 

02 



BUS 

AGAIN 

0929 

DO 

E8 



IDA* 

CURH 

0923 

A5 

05 



ct:p* 

E1IDH 

082D 

C5 

03 



DNS 

AGAIN 

092P 

DO 

B2 



CLI 


0831 

58 


Clear interrupt disable 


BRN 


0932 

00 


Stop 


JuP 

BEGIN 

0933 

4C 

00 08 

Get set for repeat 


•IKE’.OrilC 

ADDRESS 






START! 

STARTE 

0000 

0001 


The program is relocatable, except 


for the JMP BEGIN at 0833 


BNDL 

0002 






EHDH 

0003 






CURL 

0004 






CUrH! 

0005 






BEGIN 

0300 






AGAIN 

031? 






BACK 

0315 






COKP 

0325 






SYNC 

E241 (user port with 

handshake 



pre-set ao all input i 
of PET) 

E34D (Control register for i 


• port) 
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Reversing Upper/Lower Case 

Jim Butterfield Toronto 

Some people seem to be bothered that if vou perform POKE 
59468,14 to permit lower case characters, the keyboard is reversed - 
that is, you have to use SHIFT for lower case letters. It's easy 
enough to fix, if desired, as the simple demonstration program shows: 

300 POKE 59468,14 : C=32 (space character) 

310 C=198-C : T=TI+15 : ? CHR$(C) ; "cl"; ("cursor left") 

320 GET Z$ : IF Z$<> "" GOTO 350 
330 IF Tl < T GOTO 320 
340 GOTO 310 

350 Z=ASC(Z$) : IF Z>64ANDZ<91 THEN Z$=CHR$(Z+128) 

360 IF Z > 192 and Z<219 THEN Z$=CHRS(Z-128) 

370 ? "sp cl";Z$; : GOTO 320 ("space cursor left") 

Special PET Print Control 

Jim Butterfield Toronto 

By now, most readers of the instruction book - and PET User Notes 
know about the cursor movements, plus Home and Screen Clear. A 
couple if others should be mentioned: 

-- Delete (reverse T) can be useful because it moves everything 
to the right of the cursor (on the same line) to the left. Great 
for generating left-movement effects. Remember that Delete 
doesn't work if the cursor is in column 1. 

— Insert (reverse shift T) gives the opposite effect to Delete: it 
will move a whole line right. Remember that you must follow 
the Insert symbol with the information to be inserted (say, a 
space); and characters pushed beyond the right margin may 
reappear on the next line. 

— Carriage Return (reverse shift M) starts a new line. 

— Reverse (reverse R) and reverse-off (reverse shift R) turn the 
reverse feature on and off during printing. 


SUITCHER 

Frank Covitz Lebanon, NJ 

Since nost 6502 prograns (take extensive use of zero- 
page, here is ny SUITCHER routine: 

This is locatable anywhere. To use, stick a JSR 
SUITCHER at beginning of your 6502 progran then do another 
JSR SUITCHER before the final BRK, RTS, or JMP BASIC. 


SEI 

78 


protect fron interupts 

LDXin KBYTES 

A2 

NN 

NN=no. of bytes to be preserved 

LDAzx BASE-1 

B5 

HH 

HH=start addrlow-1 of zero-page 

PHA 

48 


save it on stack 

LDAx BASE-1 PA6EH 

BD 

HH PP 

fetch data fron page PP 

STAzx BASE-1 

95 

HH 

store it in page zero 

PLA 

68 


fetch previous page zero data 

STAx BASE-1 PAGEH 

9D 

HH PP 

store it in a safe place-SUITCH 

BEX 

CA 


do it NN tines 

BNE FI 

DO 

FI 


CLI 

58 


clear the interrupt disable bit 

RTS 

60 


then return 


This is locatable anywhere. To use, stick a JSR 
SUITCHER at beginning of your 6502 progran then do another 
JSR SUITCHER before the final BRK, RTS, or JHP BASIC. 


40 REH UOLF 
50 REH NEIL HARRIS 

70 REH CB2 ON USER PORT TO AHPLIFIER 
100 P0KE59467,16:P0KE59466,15 
110 F0RL=180T076STEP-3:POKE59464,L:NEXT 
120 FORL«200T0100STEP-3«POKE59464,L:NEXT 
130 F0RL*100T0250STEP3:P0KE59464,L:NEXT 
999 POKE59467.0 


PAYROLL - Computes Federal, F.I.C.A. and 
State (instructions for your State's 
data) taxes. Accumulates totals for 
quarterly and yearly reports. Keeps 
data on employees such as name, address, 
sqclal security number, marital status, 
employee number, etc. Records data on 
convenient cassette tapes. Up to 25 
employees recorded on tape or can com¬ 
pute tax Information for any number of 
employees. 

. $30.00 

CHECKBOOK RECONCILIATION - A program for 
anyone, Includes extensive human engin¬ 
eering and instructions for ease of use. 
Balances checkbook and bank statement 
from month to month. Records data on 
cassette for next month's balancing - 
saving re-entry of figures. 

. $25.00 


Sawyer Software is quickly becoming 
recognized as a leader in quality 
business and personal software for the 
PET user. If you are the software author 
of a quality business or personal program 
(not games, please), contact us about our 
royalty program. 


BUSINESS SOFTWARE FOR YOUR 8K PET 

ACCOUNTING PACK I - Includes General 
Ledger, Check Journal, Income State¬ 
ment, Balance Sheet and more. For 
Home or Small Business use. Up to 
40 accounts - Up to 50 different 
entries per month. 

. $25.00 

SCHEDULE PLANNER - Perfect for the busy 
business man. Input date, descriptions, 
priority and deadline date, program sorts 
and lists most Important jobs to be done. 
With Clock subroutine alerts operator to 
appointments. Also records data. 

. $15-00 

SCHEDULE PLANNER tfZ - Same as above, but 
for the secretary who must keep appoint¬ 
ments of several persons. Will also 
list daily appointments and priorities. 

. $ 20.00 

CALCULATOR - For accountant-bookkeeper. 

Not only allows your PET to function as 
a calculator, but also Includes lister 
(verifies and displays errors between 
two tape listings) and Matrix (which 
adds columns vertically and horizontally). 

. $10.00 

FINANCIAL PACK I - Includes Amortization 
Schedule, Calendar ( figures days between 
two dates). Rebate, Compound, Annuities 
and Monthly Payment. 

. $15-00 


BUSINESS GRAPHIC PACK I - Not a 
simple graphic program, but a pro¬ 
fessional business program that 
labels axes, uses curve fitting 
regression (Nth order or geometric) 
for projection of trends and contin¬ 
uity, optional X axis = Time for 
date entry, dual graphic ability, 
and more. 

. $25.00 

BUSINESS ANALYSIS - Developed by a 
Bank Cashier, this program allows 
detailed analysis for management 
in the areas of liquidity, profit¬ 
ability, leverage and activity 
(ratio and trend) for financial 
planning decisions. 

. $30.00 

CHESSBOARD - Two players can play 
chess on your own PET graphic chess¬ 
board - displays each player's time 
and records moves for future play¬ 
back. 

. $15-00 

All Programs in BASIC and on 
Cassette. 

SAWYER SOFTWARE 
828 Lewis, Rt.#3 
Dexter, M0 63841 
314-624-7611 
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Some Possible Modifications to Second Cassette Interface from 
Volume 1, Issue 3 

Stephen Hui, using a Sony recorder, needed as extra inverter 
on the input circuit (which he obtained by tying in another gate 
on the same 74132 package). 

Frank Covitz sent the following: 


(2) 1 N914~ 


. 1/4 RS-324 1/6 7414 

Quad op amp Hex Schmitt 
input inverter 


Apparently Frank's Sear's cassette recorder has either low output 
and/or high distortion. 

The diodes and wlOX DC amplifier work over a wide range of 
input voltages. Both IC's are driven from the PET 5V "B" line. I 
have had very good reliability on both read and write, and tape 
interchangeability using this cheap recorder, which, by the way, 
has a tape counter. The tape itself seems to be the most critical 
element. I have had very reliable results using Radio Shack Super¬ 
tape and Ampex Plus Series cassette tape. 

Russell Martin suggested that the problem is probably with the 
recorder, and that any player used should be capable of producing 
TTL switching level voltages at the inputs of the Schmidt trigger 
NAND gate. His Bigston KD-300Q has an output of 4.8VAC RMS 
and works well, but his Craig 2603 produces 3.8VAC RMS, and isn't 
recognized by the interface (due to additional voltage drop caused 
by the 1 N914 diode and the half wave rectifier circuit on which it 
was used). Possible solutions: replace TN914 (or 1N4148) with a 
germanium diode; use full wave rectifier bridge to replace single 
diode; use 1C audio amplifier before the diode to boost signal. 
Further, Russell mentioned that some recorders don't like the AUX 
input connected during playback. 


ANNOUNCING 


commodore 


PET 


personal computer 

Now Available in the Washington D C. Area From. 


□□mPLITER svsiEms STORE 

TYSONS CORNER VA. NEAR HOLIDAY INN 
1984 Chain Bridge Rd., McLean, VA 22101 
703 - 821-8333 

" A FULL UNE COMPUTER STORE: SALES SERVICE - SOFTWARE" 


Spectacular 

° New Product Breakthrough! 

SLICKSTICK™ JOYSTICK COMPUTUNE™ MUSIC GENERATOR 


Normally $24.95 f 
* Introductory Special $19.95 

Available for either the parallel (specify SSPI 
or IEEE (specify SSI) ports 

Double joystick configuration also available, 
(just $39.90. During intro special specify SS2I 
Includes extensive documentation. 

Convenient casette of useful demonstration 
programs also included at no extra charge. 

ML Ideal interactive peripheral for integral con* 
trolof the cursor. 

3^ Improves the productivity of any program 
by making it more exciting and interesting. 


Normally $24.95 . 

Introductory Special $19.95' 

^ Supports parallel port only, (specify CTPI 

Configuration available to utilize couble joy¬ 
stick and Computune. (specify S2CTI 

Includes extensive documentation. 

-- Convenient casette of useful demonstration 
programs also included at no extra charge, 

Jf. Plays any music you can write or transcribe. 

Add spectacular special effects to your busi- 


by making it more exciting and interesting. _ ness or leisure programs. _ , 

1 Additional introductory super special Double Joystick w/Computune music generator only [specify S2CT) $49.95 Reg. $74.851 


Starship (specify ST A) $4.95 
Action Target fighter game that 
puts you in the gunner's seatl 


95 Entangle (specify ENT T $4.95 Breakthrc 

that Unique 2 player game that will The same 

at! surround and amaze you. poc 

[Requires Double Joystick) 

All single player games support the parallel joystick and Comoutune. 

| High Quality Short Digital Data Casettes $1.491 


Breakthrough [specify BRE 1 $4 75 
The same game that emptied y -ur 
pockets at the arcade. 


PCS 

Personal Computer Specialists 
^ ends September 1. 


Ordering Instructions 
To order simply specify three- 
character code following desired 
item. If check or money order 
accompanies order well pay shi- 
ping. [Please allow time for 
checks to deer the bank .) 


Pa. residents please add 6% sales 
tax. Sorry, no P.O. boxes or 

R.D.'s. 


Personal Computer Specialists 
Dept. P5 
P.O. Box 687 
Langhome. Pa. 

19047 


Specialists in Advanced Microcomputer Electronics 



CONNECTICUT micro COMPUTER 



KS-232 PHINTER ADAPTER FOR THE COMMODORE PET 


The CONNECTICUT mlcroCOMPUTER ADApter model 1200 Is the first In a line of peripheral adapters for the 
COMMODORE PET. The CmC ADA 1200 drives an RS-232 printer from the PET IEEE-488 bus. The CmC ADA 1200 allows 
the PET owner to obtain hard copy program listings, and to type letters, manuscripts, mailing labels, tables 
of date, pictures. Invoices, grrphs, checks, needlepoint patterns, etc., using a standard RS-232 printer. 

The CmC ADA model I200B comes assembled and tested, without power supplies, case, or RS-232 connector 
for $98.50. The CmC ADA I200C comes complete for $169.00. Specify baud rate when ordering. (300 baud Is 
supplied unless otherwise requested. Instructions for changing the baud rate are Included.) 


WORD PROCESSOR FOR THE COMMODORE PET 


CONNECTICUT mlcroCOMPUTER now has a word processor program for the COMMODORE PET. This program permits 
composing and printing letters, flyers, advertisements, manuscripts, articles, etc., using the COMMODORE PET 
and an RS-232 printer. 

Script directives Include line length, left margin, centering, and skip. Edit commands allow the user to 
insert lines, delete lines, move lines, change strings, save onto cassette, load from cassette, move up, move 
down, print and type. 

The CmC Word Processor Program addresses an RS-232 printer through a CmC printer adapter. 

The CmC Word Processor Program Is available for $29.50. 


HS-232 TO CURRENT LOOP/TTL ADAPTER 


The CmC ATApter model 400 has two circuits. The first converts an RS-232 signal to a 20 ma current loop 
signal, and the second converts a 20 ma current loop signal to an RS-232 signal. With this device a 
computer's teletype port can be used to drive an HS-232 terminal, or vice versa, without modification of the 
port. The CmC ADA 400 can also be paralelled to drive a teletype or RS-232 printer while still using the 
computer's regular terminal. The CmC ADA 400 can easily be modified to become an HS-232 to TTL and TTL to 
RS-232 ADApter. The CmC ADA 400 does not alter the baud rate and uses standard power supplies. The current 
loop is isolated from the RS-232 signal by optolsolators. 

The CmC ADA 400 Is the perfect partner for KIM If vou want to use an RS-232 terminal instead of a 
current loop teletype. 

The CmC ADA 400S comes with drilled, plated through solder pads and sells for $24.50. The CmC ADA 400B 
comes with barrier strips and screw terminals and sells for $29.50. 


This announcement was composed on a COMMODORE PET and printed on a GE 
TermiNet using a CmC ADA I200C printer adapter and the CmC Word Processor 
Program. 
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Only 1 Description 1 

baud rata 1 prlca 1 

total 1 

■ all elth real It ante or charoa Inforaatlon toe 

1 C< ACA 12MB (Casio 1 1 1M.5* 1 

1 CsC ADA I2MC (cosplsltl 1 1 H».» 1 

1 r«f Hard Proraeear Proarea (caaaatta) 1 429.5* 1 

1 

1 

1 

G: «r; 

CONNECTICUT mlcroCOMPUTER 

150 Pocono Rood, Room 6 

Brook f I old. Conn. 068 04 

1 CeC ACA AMS (adder padi) 

1 124 .it 1 

1 

NAME 


1 C* ACA 4MB ibarrlar atrlpii 

Subtotal 1 

1 

ADORESS 

-——---—- 

Connecticut raaldanta add It aalas taa 1 1 

Handling and ahlpplng - add par ordar 1 

• J.M I 

CITY 


Foreign air Mil 

- a*tt tS.M par ordar 1 

1 
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ZIP 

Total Included with ordar 1 

1 
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HIM) Mil IMS FUNCTION PLOTTED IN* 
IMIM 

tun. 


.» .337731*9 

I -.096I646I10 

1.4 i.i 9 -*-i 8 

7 -.WOMXtl 

2.* "I.34143229 

J 2.69697333 

J.* -J. 1—648462 

« 1.3732*972 

4.4 1.71447719 

4 -4.42789179 

I*** DC* IMS FUNCTION PLOTTED IS. 
ININ r-X«MNI4.»«KI 
HUOY. 


I OPEN 6.6>CMD 6'LIST 

10 HEM A SCSI N AND ABCCOS FUNCTIONS FOR THE COMMDOIRE PET 
7* HEM N0ITTEN BT HICMADO MtSNFft 

J* hem cnwcEcncuT microcomputer 

4B REN I*- POCONO ROAD 

REN BROW FIELD. CT 94804 

AO MEM 

70 PEN 'Listed on • CE T»r-IM»t TOO 
00 UEM -using a C-C AOA 12—. 

90 PEN 

100 PEN OPEN OUTPUT FILE ON OEVICE #0. 

110 OPEN *.8 
120 REM 

**» REM CFT A SINE VALUE 
SIB INPUT 5 
S 20 C-S 
S3N REM 

I HAN men THE FINE OF THE ANCLE IS S 

1010 REM IF THE SIN IS IN THE RANGE OF -I TO I. THEN COMPUTE. 

1020 IF S<l AND S»-l GOTO io*o 

IM30 AS-90.COTO2B00 

104M REM THE ARCSINE IS AS 

imso AS-ATNis/m-s*s>*.sn 

1060 MEN THE RESULT IS IN RADIANS. CONVENT TO OEGRFES. 

1070 AS*AS*180/ 

2**AA REN THE COSINE OF THE ANGLE IS C 

2010 REN IF THE COSINE IS IN THE RANGE OF -I TO I, 

2011 HEN ANO NOT • TO N. T*€N COMPUTE 

202- IF C«*0 THEN 2040 

2030 AC"901GO TO 3*08 

2H40 IF C«l ANO C»-l THEN 2070 

2050 AC-O.GOTO 3000 

2060 REN THE ARCCOS IS AC 

2—70 AC-ATNfll-<*C>‘.S/C> t 

2-88 REN THE RESULT IS IN RAOlANS. CONVENT TO DEGREES. M 

2- 98 AC*AC*I 00/ n 

3— PRINT**.• SIN.COS ABC SIN ABCCOS* 

3NIB PRINT#*.*1 5 

3U2- FOR N-l TO IJ-LEmSTUtlSIXPPINT#*.* *1 *HE«T . 

3-3B PBINI#*.ASi m 

3—40 FOR N-l TO 13-LINISTB11 AS)>'PRINT#*,“ -I'NEAT n 

3«*0 PRINT#*.AC « 

3100 GOTO *00 


Illlll 


SIN.CO* 

4BCSIN 

ABCCOS 


.1 

*. 7301 'A4 0 

B* .76-8796 


SIN.CO* 

ARCS IN 

AMCCOS 


.2 

II .*369*9 

76.463-41 


SIN.CO* 

*RC?|N 

AMCCOS 


.3 

17.4*)«A3l 

77.*473060 


SIN .CO* 

ARC SIN 

ABCCOS 


.33333333 

19.47127A* 

7M.*787796 


SIN.COS 

ARCSIN 

ABCCOS 


.4 

23.S7UI78* 

66.4718716 


SIN.COS 

ARC 51N 

ABCCOS 


.s 

3— 

6P 


SIN.cos 

ARCSIN 

ABCCOS 


.0 

36.8606977 

*3.12-1874 


SIN.CO* 

ARCSIN 

ANCCo* 

I 

.7 

44.477AA4 

4*.*77906 


SIN.CO* 

ABC 51 N 

ABCCOS 

P 

.72*91—2 

*6.*446-3* 

47.4**306* 

*8 

SIN.COS 

ARCSIN 

ARCCOS 

1 •*.' 

.8 

*3.13-1-74 

36.8608077 

1*8 

SIN.CO* 

ARCSIN 

ARCCOS 

2BP 

.9 

64 . IS8A673 

2*.8410328 

2*8 

SIN.cos 

ARCSIN 

ABCCOS 

3P0 

.999999 

89.9189618 

.-8IP387363 

2*8 
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asi 

I # TYPE C 


### 

### ### 
##• ### « 

##• 000 I 

•## ooo ooo I 
### non ooo i 
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non ooo ooo t 
i ooo non hi 
i ooo m in - 
i in in m 
III III III ; 
III III III 
III III III : 
ill ill ill : 

in in m : 
in in in : 


i #•# ##• ooo ooo in in m in in in ui 

i### (no ooo ooo in in in in ui m m m 

*i inn) non ooo m in in in in in in in in 

•ooo III in in III ill III III III m in in 

nn ni in in hi in in in in in in in 

mi ni ni in in in in in in ><i in in 

mi in hi in in in in in m m ix in 

• JA.-4 FEB MAR APB MAT JUN JUl AUG SEP OCT NOV DEC 


4** 2A2SNB 
*MM 2*—B 
**N 382*—* 
6 AA 36 — 
6*B 422SNB 
7BP 49BBBB 
7*B *02*88 
BAA 64ABAA 
B*B 722*BA 


I 4637*ABA 
21 6AA*AAA 
2746?*-Art 
34 3——88 
47IN7*MBB 
*12—— 
61417*A—A 

B* 73 7*ABA 
I E*A9 


2 I7*A«.221 
1919*B7.*B 
6861A77.7B 
16939*3*.J 
34 I4 6B**.2 
AB*4BB*4.8 
98771B?2.8 

I4949AI4I 
716477747 
3813**2*8 
4A6*4BNBB 
*34J473AI 
687II2634 
867239*97 
I.B77I3798E*89 
1.31974 718E•A9 
l.*96N2972E*89 
I.9R997BB7E*B9 
2.26J*7349E*P9 
2.6*936*B6E«B9 



12.2474487 
14.1*213*8 
I*. 8113883 
17.32^**81 
18.7B87869 
20 

2I.2I32B34 
22. 361*6798 
23.4*7H788 
74.49*6974 
2*.49*A976 
26.4*7*131 

27 . 3861 2 7 9 

28 . 28 * 271 3 
79.1*47*9* 


4!j099909V | 
4.4990990V | 


■AA REN THE FUNCTION PLOTTED IS* 
JIB r-X*SIN(4.B*I) 

IDT. 


7*A *67*—* 

BAA 6* AO— 
8* A 772*—A 


9112*-88 
12 *—>v 
10037*— 
216— 
2 7467*—BB 
34 3—— 
42IR7SBBB 
*1 7 AT AO An 
01412* — 
779—AOOP 

8*737*— 


217*B6.721 
1919487.*8 
68AIB77.20 
1*939*3*.J 
34 I*68**.7 
69*488*4.0 
98271-27.8 
I 4949—14| 
210427747 
3BI 3**746 
4—6*4 — 1*60 
*343*73-1 
687 M 2034 
8672)9*97 
• 771.119BE*69 

••31974 718f *69 
l.*96«*2977'»69 
I .9099 7OB7?.09 
7.703*7349*.-9 
7.6*936*—6 s *—9 



12.2*7440 7 
14.14713*6 
I*.8113883 
I 7.32P*"0I 
I 0.7—82609 
2- 

21.2132-34 
22.3666790 
23.4*7-788 
74.*946974 
2*.49*1*970 
20.4*7*131 
77.3861279 
78.76*7713 
• 9. 1*47*9* 
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General Notes for Converting S-100 8K Memory Boards for PET 
Prentice Orswell Boulder, CO 

1. Logic for wait states and protect are not used. 

2. Page select switches are not necessary. 

3. Change MWRT driver on memory board so there are an even 
number of inversions or no inversions on the PET R/W line. 

4. Use AO - »A11 and: 

SELT and SEL2 for expansion of 4K PET. 

SEL 2 and S EL3 for expansion of 8K PET. 

SEL (n) and 5EI (n+1) for further expansion. 

5. Parallel the memory board data input and output bus and connect 
to the PET BDO-V BD7. 

6. Bring R/$ and the two PET select lines into the tri-state data 
bus driver logic so that the driver is only on when memory is 
selected and R/W is high. 

7. Bring A10, A11 and the two select lines into the page select 
logic. 

8. PET A0-*A9 connect to the memory board A0-*A9. 

9. Pet memory expansion connector 

A27 RES 

A28 IRQ 

A29 B02 are not used for memory expansion 

10. Get power from external power source and don't forget the 
ground connection to the PET (upper memory expansion 
connector pins). 

11. Try pull-ups (560jt) on the PET address, select, and R/W lines 
if you have problems. 


Defeating "REDO FROM START" 

Chuck Stuart Dallas, TX 

The automatic printing done by PET BASIC when the operator 
goofs up the input such as "REDO FROM START", "EXTRA IGNORED" 
and "??" can really screw up a formatted screen layout. 

The most common error in inputting alpha data when numeric is 
expected. This will get you a 15 yard penalty and "REDO FROM 
START" every time. 

One way to avoid this problem is to always input data from the 
keyboard in STR$ format, check it's validity in a subroutine, and then 
if everything is OK, convert the input to numeric with a VAL state¬ 
ment. The following subroutine can be used to perform this function. 
10 INPUT A$ : GOSUB 100 IF Fl=l GOTO 10 

20 . 

100 F1=0 : ND=0 
110 FOR 1=1 TO LEN(A$) 

120 A1 $=MID$(A$, 1,1) 

130 IF A1$<"0" OR Al$>“9" THEN GOTO 150 

140 NEXT I : A=VAL(A$) : RETURN 

150 IF A1 $="-" AND 1=1 GOTO 140 

160 IF Al$="." AND ND=0 THEN ND=1: GOTO 140 

170 F1=1: PRINT "cu"; 

180 PRINT A$ ; " IS NOT NUMERIC." : PRINT "cu"; 

190 RETURN 

This subroutine checks each character in the string to see if it is a 
value between 0 and 9. If each individual character is a number then 
the string is numeric. 

Line 150 allows a leading to be accepted indicating a nega¬ 
tive value. If all is OK, line 140 sets A to the numeric value of A$ 
and RETURNS. If a non-numeric character is encountered, an error 
message is printed and control is returned to the INPUT command. 
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PET Composite Video Interface 

Cal E. Merritt Danville, Indiana 

This circuit provides composite video output from the PET. I have 
used the output to drive two different monitors with good success. 
The circuit is very simple and can be put together with a wire wrap 
tool in o few minutes. 

I used one of the existing PET 5 volt sources. The easiest way to 
steal the video and drives is to carefully scrape clean the fc 

PET Composite Video Interface 

Cal Merritt Danville, Indiana 

This circuit provides composite video output from the PET. I have 
used the output to drive two different video monitors with good suc¬ 
cess. The circuit is very simple and can be put together with a wire 
wrap tool in a few minutes. 

I used one of the existing PET 5 volt sources. The easiest way to 
steal the video and drives is to carefully scrape clean the foils next 
to where the monitor plug is and tack solder a twisted pair to each 
signal and the closest ground buss. Other variations would work 
equally well. 

To avoid metal shavings and such falling on the main board, I 
removed the back cover from the monitor (Power OFF) and mounted 
a BNC jack two inches to the right of the brightness control and fed 
it with a twisted pair. I mounted the board under one of the bolts 
that hold the monitor to the main chassis and attached the drive 
twisted pairs to the existing ones for the monitor. 

Video monitors seem very tolerant and the two units I have used 
work fine. The only problem encountered was in attempting to do 
all white screen or very dense graphics which caused sync tear in 
one of the monitors. Normal or dense listings worked well. 

C0 40II 




All three monitors I tried worked with this video output. The 
appearance of the video will be a function of the quality of the 
monitor. Some of the scrapped out commercial units available with 
the 10 MHz and more bandwidths look excellent with the PET video. 
I have had a number of people comment that my 12" commercial 
monitor looks better than the built in unit. The add-on does not 
alter the existing PET display in any way. 


P.E.T.™ PRODUCTS 


SOFTWARE/ACCESSORIES/HARDWARE 


Memory Expansion.'.' 31743 Bytes Fr ee 1 NEECO now has internal memory 
Expansion Boards Available for your PET 1 16K. 24K ano 32K Memory 
Configurations Ca'i o> write NEECO and ask lor our ‘Free’ Software and 
Hardware Directory. Power up to 32K Bytes! Call NEECO lor more info. 


Sottrrere-NEECO has too many programs to list them ai! hem' Ca- or 
wnte and ask for our 'Free* Directory! 1 'Software Authors' NEECO 
offers 25% Royalties on Pet programs with nationwide distribution'-Call 
NEECO for additional information on our 25% Royalty Program 

PET t PeripherettNEECO offers fast (off the shed'') delivery schedules 
for the Pel Computer and Peripherel 2020 Printer. NEECO also offers 
excellent persona' & Warranty service!!’ interested m a Pet ? Call and 
request our P.E.T. Info Pak Feel free to call and ask questions. 


The Mu sic Sox-Music Composer and sound effects generator allows you 
to compose and hear music 0« your Pel' -Program & Hardware allows 
you to display notes, near the notes, save pages of music on tape for latar 
playback or modification 1 Tne Music Bo* actually displays the notes as a 
song or tune is played! Allows you lo add sound effects to your own Pet 
Programs Endless Possibilil.esi Ali Cassette Software, plug in Hardware, 
ana Music Box instructions for only $4995' Music So* Fits righl lns.de 
your Pet No assembly required' Music Bom even plays random tunes! 


“NEECo'D^uTorerT^^rTo^TTetTo^T^o^^etTTcu^^^c^^ 

and keyboard from dust that can. over lime, cause intermittent chip 
failures' Heavy, clear Plastic Dust Cover shows off your Per while 
protecting <t from dust, spills, and those inevitable Unwanted Sticky 
Imgers'i Manufactured to last as long as your Pelf-only $17 95 

VISA OR MC Phone orders Accepted <4°, Surcharge on Hardware! 


NEW BfGLAND ELECTRONICS CO 

248 Bridge Street *'“ <:°«<«'3> _ 

Springfield. Mass 739-9626 


Aulhonree Ft T $•!•* a 
"Guaranteed Delivery" 
Schedules for all of our 
Cali 


MACHINE LANGUAGE 
SOFTWARE 

DISCOVER the most well-kept secrets of the 
PET with this sixty-page disassembly of the 
entire 14K ROM. The listing, generated by PET 
itself, provides the addresses, opcodes, 
mnemonics, and addressing modes in an easy to 
read and understand format. With all tables, 
subroutine entry points, and major routines 
labeled, it is a MUST for all serious 
programmers. 

Don't let your PET keep you in the dark 
about what goes on inside! Take advantage of 
the PET's utility routines, floating point 
package, cassette handling and screen editing 
routines—a veritable GOLD MINE of software! 

ALL FOR JUST $9.95 

RAYNOR L. TAYLOR 
QTRS. 718 NAVAL BASE 
CHARLESTON, S.C. 29408 

*0UR MONITOR AND ASSEMBLER COMING SOON* 
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PET SOFTWARE 

CASINO SERIES : 

These programs were developed both as a tutorial for those planning to visit a Casino and wanting 
to learn to play the game correctly, and as a means for the serious gambler to develop and 
thoroughly test a gambling system under actual Casino conditions without having to prematurely 
risk his capital. All betting odds and options available at the Casino of the MGM Grand Hotel in Las 
Vegas have been incorporated into these programs. Full screen graphics have been used to show the 
cards being dealt, the Roulette wheel spinning, and the dice being thrown in order to increase 
realism and highten enjoyment. 

1. Casino Blackjack: 

Play with 1, 2, or 4 decks. Change decks or reshuffle at anytime. Bankroll keeps track 


of winnings (or losses). Split pairs, Double Down, or place an Insurance Bet. 

Full Casino rules and many other features.$9.95 

2. Casino Roulette: 

Bet on one number, two numbers, three in a row, odd, black, etc. Watch the numbers 
come up as the wheel spins. Many unique features. Twelve different ways to bet. 

Spin the wheel. Where she stops, nobody knows.$9.95 

3. Casino Baccarat: (Chemin da Fir) 

James Bond's favorite game. You get two games in one. Casino style and Blackjack 
style. Includes special features for help in developing a winning 'system'. 

The largest bets are usually at this table.$9.95 

4. Casino Craps: 

Eighty percent of the turnover at a Casino is at the crap tables. Bet the 'Do Line', 

'Don't Line', Field or any of 10 different bets including Double Odds. 

This program alone can pay for your PET.$9.95 


STRATEGIC BQABQ-SER1 E& ; 

For the young and old alike. Each game is played on one or more boards which are shown on the 
screen using PET graphics. You play against the PET. PET plays a fast exciting game, never taking 
over ten seconds to move. These games are beatable but you really have to try. Hours of 
entertainment. 


1. Qubic 4: 

This is three dimensional Tic-Tac-Toe played on four 4x4 boards. 76 ways to win 

(or lose). PET chooses between three strategies for each game. No two alike.$9.95 

2. Go-Moku: 

This ancient Chinese board game is played with 20 men on a 9x9 board. You must 

get 5 men in a row either across, down, or diagonally in 30 move before PET does.$9.95 


QUANTITY DISCOUNTS! 

Any two of the above programs $15.95. Any four $27.95. All six $39.95. 

QUR GUARANTEE TQ YOU; 

If you feel any program is not as advertised, we will give you a 100% refund on that program. Any 
tapes that will not load will be replaced at no charge and any bugs will be promptly corrected. These 
programs were professionally designed and written and are as user proof as possible. Any incorrect 
input will generate a self explanatory error message. You are never left wondering what you did 
wrong or what to do next. We welcome your comments or suggestions on any of our software. 

All orders shipped postage paid by 1st Class Mail immediately from stock. 

Order From: 

CMS, 5115 Menefee Drive, Dallas, Texas 75227 
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0 BOIU 60000s Kfcn UNLISI (LARKY IESLER) 

40000 OPEN 1,1: REH **«FILE SPEC*** 

40010 GET*) ,C$:IFASC(C$K>13G0T040010 

40020 P0KE410,1sY$*"3":PRINTY$sD a -4:E=252:S s 4:C a 13sGET*l,C*sI 
FC$="R"G0T040050 

40030 PRINTCI; s IFASC(C$)OCTHEN6ETI1 ,C$sS=D*( (EANDST)=0):IFSG 
OT040030 

40040 Z*2!Z*=-60T040020"sIFS60T040070 

40050 CLOSEI sPRINTHIDK "ERR0RC0NT",S+1,4) ;:ST0P:PRINTY$sZ=9sY 
=40000 5 T*10 

40040 FORI'OT07sPRIMTY*T*IsNEXTsPRINTO 

40070 L=525:F0RI=tT0ZttsP0KEL*I,C:NEXTsP0KEL,Z!PRINTZ*sPRINT“ 
sEHD 

41000 REH TO CONVERT AN ASCII PROGRAH 
41010 REH (SUCH AS PRODUCED BY 
41020 REH OPEN 1,1,1s CHD1: LIST 
41030 REH F0RI*1T0200(PRINT*1,“ "JsNEXT 
41040 REH PRINT*),**s CLOSED 
41050 REH TO BASIC, LOAD THIS PROGRAH 
41040 REH FIRST, THEN RUN, IT UILL 
41070 REH READ THE FIRST FILE ON 
410B0 .REH JAPE 1 AND ASSIHILATE EACH 
41090 REH LINE INTO THE PROGRAH. 

41100 REH FOR OTHER INPUT SOURCES, 

41110 REH CHANGE LINE 40000. 

41120 REH TO ADD A SUBROUTINE TO 
41130 REH A PROGRAH, FIRST LOAD 
41140 REH THIS UNLIST PROGRAH, 

41150 REH THEN LIST-41090, 

41140 REH THEN LOAD THE PROGRAH, 

41170 REH THEN HOHE AND HIT RETURN 
41180 REH 9 TIHES TO PUT UNLIST 
41190 REH INTO THAT PROGRAH. 

41200 REH NEXT, PUT IN THE TAPE 
41210 REH THAT HAS AN ASCII VERSION 
41220 REH OF THE SUBROUTINE (HADE 
41230 REH BY LIST), AND RUN. 

41240 REH IF IT STOPS BY "BREAK", 

41250 REH YOU CAN DELETE THE UNLIST 
41240 REH CODE BY SAYING "CONT" 

READY. 


PET SOFTWARE 


AMORTIZATION-compute your finances.$6 

BIORHYTHM-plotted before your eyes.$7 

BLACKJACK-full graphics version.$7 

DEPTHCHARGE-seek out enemy subs. $7 

HANGMAN-spelling game for children.$8 

MULT I PL I CAT I ON-learn without tables.$7 

TIC-TAC-TOE-In three dimensions.$6 


All programs are on ready-to-load 
digital cassette for 8K PETS. They 
are documented and easily modified. 
20% discount on order of 3 or more. 
VISA/BA or MASTERCHARGE cards are 
accepted(include card il and expir.). 
Postage paid in U.S. 

ABACUS SOFTWARE 
P.0. BOX 7211 
GRAND RAPIDS, MI. 49510 


TN W488/232 
Serial Interface 

USE YOUR PET AS A TERMINAL 



TNW 488/103 
LOW SPEED MODEM 

AUTO ORIGINATE, ANSWER, DIAL 


Mow you can Interface 4S-232-C and Mil—orD-l88C serial 
peripherals such as printers, codecs, Car terminals, 
plotters, paper tape readers and punches - even other 
computers - to your PEI'. The ra»>488/232 Serial Interface 
provides two Independent 3IDIrtECriONAL asynchronous 
serial data channels for your PEI, plus additional Input 
and output signal lines you can use to control peripheral 
devices. 3aud rate (75 to 9600 bits per second), charac¬ 
ter length, and parity are strapped on the board Indepen¬ 
dently for the two channels. TNW488/232 derial Interface 
assembled and tested. ;280. dingle channel version of 

IMW488/232. $240. 

PLAY COMPUTER-TO-COMPUTER GAMES 


me CSV488/103 Low dpeed Modem Is a full-service modem 
that puts you and your PET "on line". A PET program 
tape that allows you to use your PEf as a terminal on a 
timesharing system accompanies the unit. Because the 
n,u488/103 connects to the telephone system through a 
car or C&i type Data Access Arrangement (not Included), 
you can have your PET pulse-dial your phone calls, or 
answer calls from other computers. Baud rate (75 to 
600 bits per second), character length, and parity are 
software selectable. TNW488/103 Low dpeed Modem, 
assembled and tested. 1320. Interface to CBT. standard. 
Interface to CiU. 110 additional Cable to DAA. $15 

HAVE YOUR COMPUTER DIAL YOUR CALLS 



Both the INW488/103 and the MV488/232 Incorporate a SEAL IEEE 488 Interface, otner devices can 
be used on the bus with them, and they can be used with IEEE-capable computers other than PEI'. 
Each unit Is a single 9 by 13 Inch printed circuit board, with power supplies built right on the 
board, you provide only 117 VAC. An attractive cabinet Is available (#35), as Is a cable to 
connect to the PET's IEEE port ($20). An extensive documentation booklet accompanies each unit, 
and a 90 day limited warranty applies. California residents add 6/ sales tax to all orders. 

We accept VISA and Mastercharge. Allow one to three weeks for delivery. 


The 

NET 

WORKS 


THE NET WORKS • 5924 QUIET SLOPE DRIVE • SAN DIEGO, CA 92120 

Represented by 

ASTRONICS • 4805 MERCURY STREET • SAN DIEGO, CA 92111 (714) 278-5441 
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FIND for PET 
Jim Butferfield 


Toronto 


Need to search for an expression, a variable, or a keyword? 

Slip program FIND in behind your program (it's not very long) - then 
insert a line 1 to say what to search for .. and the job’s done. Every 
line in memory which contains the same expression as line 1 will be 
reported. This includes line 1 itself, of course, and any lines in 
program FIND .. as well as the program you're searching. I'm 
spacing out the program listing for readability — clpse in thq spaces 
when you input to save space. 

9000 A=1025 : X=PEEK(1029) : FOR J=1 TO 1E3 : FOR K=A+4 
TO A+83 

9001 P=PEEK(K) : IF P=X THEN GOSUB 9005 

9002 IF POO THEN NEXT K 

9003 A=256*PEEK(A+1)+ PEEK(A) : IF A?0 THEN NEXT J 

9004 STOP 

9005 FOR L=1 TO 80 : Y=PEEK(1029+L) : IF Y=0 THEN 
? 256 * PEEK (A+3)+ PEEK (A P?): : RETURN 

9006 IF Y=PEEK(K+L) THEN NEXT L 

9007 RETURN 

Example: to find all FOR statements in a program; insert FIND 
(above) and then insert line 1: 

1 FOR 

Now invoke FIND with RUN 9000. The program will print 1 fol¬ 
lowed by any program lines containing FOR followed by 9000 9000 
9005. (9000 prints twice because it contains two FOR's). 

FOR i' c keyword, and doesn't store as three separate characters, 
so you wouldn't find it if you seeC-hed for characters FO. This can 
be handy: if you were looking for variable F you wouldn't get all the 
FOR's printed. 

Modifications: if you squeezed P=0 just ahead of RETURN on 
line 9005 (it's a tight squeeze) a line number would print only once 
even when it had multiple matches; you might or might not want this 
feature. 

Coding note: This is a type of structured program. Note that no 
loop can repeat without a limit. The comolete absence of GOTO's 
is also considered characteristic of structured coding . A missing 
neatness element is that of line indentation; PET Basic just doesn't 
allow it. 

IMPORTANT: Don't forget to wipe out line 1 and program FIND 
when you're finished with them. 


1 REH TO ROUND A NUMBER N TO D DECIMAL PLACES, USE THE 

2 REN STATEHENT IN LINE 30 BELOU: 

3 REN 

10 INPUT “D"JD From 

20 INPUT "N";N Roy Busdiecker 

30 N*INT(N*10‘D+0.3)/10'D 

AO PRINT N 

50 GOTO 20 

60 REN 

70 REN IF THE NUMBER OF PLACES DOES NOT CHANGE, REPLACE 
80 REH 10'D UITH ITS VALUE. 


PET User Group 
PO Box 371 

Montgomeryville, PA 18936 


Description of USR Function 

Raynor Taylor Charleston, South Carolina 

Probably the least documented and least understood element of 
the PET's BASIC is the USR function. 

The USR function is concerned with the direct access to the 
processor and memory. The only other functions so concerned are 
PEEK, POKE, and SYS, which read memory, write memoiy, and 
call subroutines, respectively. In essence, USR is a combination 
of these three functions — in fact, there is nothing USR can do 
that cannot be simulated through the use of these three. 

Syntactically, USR is a pre-defined function, like SUR (square 
root) and INT (integer value of a number). For this reason, USR 
has numeric value and is used in calculations, assignment and print 
statements, etc. The only difference between USR and the.others 
is that the value USR(X) takes on is not necessarily a function of 
the argument X. , 

When USR is executed in a BASIC program, two things happen. 
First, the argument contained within the parenthesis is evaluated 
and stored in the PET’s primary software-simulated accumulator 
$B1 —$B5 under the standard five-byte binary representation . 
Second, the BASIC interpreter takes a jump to subroutine (J$R) to 
the location specified by the USR vector, memory locations SOI 
(low) and $02 (high) — actually, an unconditional absolute |ump 
instruction $4C is stored in $00, by the initialization routines upon 
reset, and the subroutine call is taken there. 

After this is done, the machine language subroutine fakes com¬ 
plete control of the PET. Although there are interrupts occurring 
all tF j time from various sources, the PET is at the disposal and 
mercy of the subroutine - if something were to go wrong, the only 
way to bring the PET back to life would be to turn it off then back 
on, wiping out all programs in the process (the addition of the rese 
switch would be wise if you are planning on doing some machine 
language programming since turning the PET on and off is quite a 
strain on the CRT). . 11Pn j 

When the subroutine returns to BASIC ($CED2 for USR and 
$C6EE for SYS, incidentally) via the execution of a return from 
subroutine instruction (RTS) at the original stack level, interpreta¬ 
tion of the BASIC program is continued as if nothing happened at 
all. The value that USR(X) assumes is the value of what is left in 
the five-byte primary accumulator — if the subroutine changes 
nothing in this accumulator, then the value returned is what was 
put in the accumulator originally, namely the argument X. 


1 REH TO LINE UP A COLUMN OF NUMBERS FOR OUTPUT, THE 

2 REN STATEMENT IN LINE I AO BELOU MAY BE USED. 

3 REM 

110 K*20i REM - MAX LENGTH r rom n , 

120 T»L0G(10) Roy Busdiecker 

130 INPUT ■n-;n 

1A0 PRINT SPC(K-INT(L0G(ABS(N))/T>);N 

"TWWtOTW 










